for TObject:=1 to 10 do ;